Wizualizacja do poprawy

Co wymaga poprawy:
Wykres jest kołowy, raczej wolimy takiego unikać. Tutaj wartości są podpisane więc jeszcze nie jest tak źle, ale dla lepszej wizualizacji można użyć innego wykresu. Dodatkowo gdyby dane były pogrupowane po krajach od razu, na pierwszy rzut oka, widaćby było jak dużo śmieci importuje dany kraj.
Źródło wizualizacji: https://twitter.com/EU_Eurostat/status/1724445194815164435/photo/1

Kod potrzebny do stworzenia wykresu.

library(plotly)
library(dplyr)
data <- data.frame(Country = c("United Kingdom", "United States", "Switzerland", "Norway", "Other"),
                   paper = c(47, 20, 14, 12, 7),
                   plastic = c(45, 8, 7, 5, 35),
                   glass = c(47, 14, 9, 8, 22))

data$Country <- factor(data$Country, levels = rev(c("United Kingdom", "United States", "Switzerland", "Norway", "Other")))


fig <- plot_ly(data, y = ~Country, x = ~paper, type = "bar", name = "Paper", 
               hovertext = ~paste(Country, ": ", paper, "%", sep=""),
               marker = list(color = '#C3B299')) %>%
  add_trace(x = ~plastic, name = "Plastic", hovertext = ~paste(Country, ": ", plastic, "%", sep=""),
            marker = list(color = '#815355')) %>%
  add_trace(x = ~glass, name = "Glass", hovertext = ~paste(Country, ": ", glass, "%", sep=""),
            marker = list(color = '#523249')) %>%
  layout(xaxis = list(title = "Percentage in import of recyclables"), barmode = "group",
         title = list(text = "Extra-EU trade partners for imports of recyclables, 2022",
                      y = 0.98),
         legend = list(title = list(text = "Material Type")),
         annotations = list(
           x = 1,
           y = 0,
           xref = 'paper',
           yref = 'paper',
           text = 'Source: https://europa.eu/!Txdtdw',
           showarrow = FALSE,
           xanchor = 'right',
           yanchor = 'bottom'
         ))

Zalety mojego wykresu

Na wykresie lepiej widać proporcje pomiędzy prezentowanymi wartościami. Dodatkowo można wybrać tylko jeden rodzaj odpadów klikając go w legendzie. Po najechaniu na dany słupek wyświetlają się dodatkowe informacje.